CREATE INDEX û przyk│ad instrukcji

W tym przyk│adzie tworzony jest indeks sk│adaj╣cy siΩ z p≤l TelDomowy i TelWewnΩtrzny tabeli Pracownicy.

Sub CreateIndexX1()

    Dim dbs As Database

    ' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a

    ' na rzeczywist╣ bazΩ danych Northwind.

    Set dbs = OpenDatabase("Northwind.mdb")

    ' Utw≤rz indeks NowyIndeks w tabeli Pracownicy.

    dbs.Execute _ "CREATE INDEX NowyIndeks ON Pracownicy " & _

        "(TelDomowy, TelWewnΩtrzny);"

    dbs.Close

End Sub

W tym przyk│adzie tworzony jest indeks w tabeli Klienci sk│adaj╣cy siΩ z pola KodKlienta. Wszystkie rekordy musz╣ zawieraµ r≤┐ne dane w polu KodKlienta, niedozwolone s╣ r≤wnie┐ warto£ci Null.

Sub CreateIndexX2()

    Dim dbs As Database

    ' Zmodyfikuj ten wiersz tak, by £cie┐ka wskazywa│a

    ' na rzeczywist╣ bazΩ danych Northwind.

    Set dbs = OpenDatabase("Northwind.mdb")

    ' Utw≤rz unikatowy indeks, KodKln,

    ' sk│adaj╣cy siΩ z pola KodKlienta.

    dbs.Execute "CREATE UNIQUE INDEX KodKln " _

        & "ON Klienci (KodKlienta) " _

        & "WITH DISALLOW NULL;"

    dbs.Close

End Sub